home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 55 / Tiger_Disk_055_19xx_Tiger-Crew-Disk_de_Side_B.d64 / dir in array (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  247b  |  11 lines
  1. 1 dimd$(144):open1,8,0,"$0":get#1,a$,a$
  2. 2 get#1,a$,a$:ifa$=""thenclose1:goto8
  3. 3 get#1,a$,b$
  4. 4 c$=mid$(str$(asc(a$+chr$(0))+asc(b$+chr$(0))*256),2)+chr$(32)
  5. 5 get#1,a$:ifa$=""then7
  6. 6 d$(i)=d$(i)+a$:goto5
  7. 7 d$(i)=c$+d$(i):i=i+1:goto2
  8. 8 forx=0toi:ifmid$(d$(x),25,1)="d"then10
  9. 9 printd$(x)
  10. 10 next
  11.